home *** CD-ROM | disk | FTP | other *** search
/ How to Get Online 1996 Spring / HOW2GON.ISO / mac / E-Mail / Easy-View Auto-Reply / Easy-View reply < prev    next >
Text File  |  1995-01-31  |  3KB  |  77 lines
  1. property idleTime : 900 --set for 15 minutes; set to your own preference
  2. property theFlag : false
  3. property theList : {}
  4.  
  5. on writer()
  6.     set thePath to path to me as string
  7.     set newPath to (replace "Easy-View reply" in thePath with "addresses") as string
  8.     set fnameA to alias newPath
  9.     set theFlag to false --keeps the Idle dialog from running 1st time this app runs
  10.     set msgBod to ""
  11.     set theEndA to (get eof fnameA)
  12.     set theWordsA to (read fnameA from 1 to theEndA)
  13.     set theList to tokenize the theWordsA with delimiters return
  14.     try
  15.         tell application "Eudora1.5.1"
  16.             activate
  17.             copy (the clipboard) to origMsg
  18.             make new message at end of mailbox "out"
  19.             set body of message 0 to origMsg
  20.             --set field "To:" of message 0 to "macscrpt@dartcms1.dartmouth.edu"
  21.             set newBod to (tokenize origMsg with delimiters return & return)
  22.             repeat with i from 1 to (count of paragraph of (item 1 of newBod))
  23.                 set flagA to false
  24.                 set flagB to false
  25.                 if (paragraph i of item 1 of newBod) contains "Subject:" then
  26.                     set newSubj to (tokenize (paragraph i of item 1 of newBod) with delimiters "ct: ")
  27.                     set field "Subject:" of message 0 to (item 2 of newSubj)
  28.                     set flagA to true
  29.                 end if
  30.                 if (paragraph i of item 1 of newBod) contains "From:" then
  31.                     set newSubj to (tokenize (paragraph i of item 1 of newBod) with delimiters "om: ")
  32.                     --set field "To:" of message 0 to (item 2 of newSubj)
  33.                     set listItem to {item 2 of newSubj}
  34.                     set newList to theList & listItem
  35.                     (choose from list newList prompt "Which address are you mailing to?" ok button ¬
  36.                         "OK" cancel button "Cancel" with empty lists)
  37.                     set field "To:" of message 0 to the result as string
  38.                     set theList to {}
  39.                     set flagB to true
  40.                 end if
  41.                 if (flagA and flagB) then
  42.                     exit repeat
  43.                 end if
  44.                 
  45.             end repeat
  46.             repeat with i from 2 to (count of newBod) -- the loop re-formats the msg w/paragraphs
  47.                 set newBod1 to ((item i) of newBod) as text
  48.                 set msgBod to (msgBod & return & return & newBod1)
  49.             end repeat
  50.             set body of message 0 to msgBod
  51.             set theFlag to true
  52.         end tell
  53.     on error errMsg number errNum
  54.         activate --brings to the front for an error msg
  55.         display dialog errMsg & return & errNum
  56.     end try
  57. end writer
  58.  
  59. on quit
  60.     continue quit
  61. end quit
  62.  
  63. on idle
  64.     if theFlag then
  65.         tell me
  66.             activate --brings to the front for the dialog
  67.             display dialog ¬
  68.                 "Application Easy-View reply is open. Do you want to quit or leave it open?" buttons {"Quit", "Keep it running."} default button {"Keep it running."}
  69.             if button returned of (the result) is "Quit" then
  70.                 quit
  71.             end if
  72.         end tell
  73.     else
  74.         return idleTime
  75.     end if
  76.     return idleTime
  77. end idle